home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00007Series_55.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  407 b   |  16 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put EMPTY into field "bemodnum"
  4.   put EMPTY into field "comodnum"
  5.   put EMPTY into field "whexmodnum"
  6.   put EMPTY into field "bearingoption"
  7.   if field "diamodnum" contains "6" then
  8.     put "76" into field "whmodnum"
  9.   end if
  10.   if field "diamodnum" contains "8" then
  11.     put "77" into field "whmodnum"
  12.   end if
  13.   puppetTransition(47, 1, 8)
  14.   play frame "7bearinga"
  15. end
  16.